# Title     : TODO
# Objective : TODO
# Created by: Administrator
# Created on: 2020/9/29 0029
#sc <- scan(n=3,what = character())

#for(i in 1:10){
#  if(i == 3){next}
#  print(i)
#}


#data <- read.csv("E:/projects/Lysimeter_Systems/src/data/Input.csv")
#group <- read.delim("E:/projects/Lysimeter_Systems/src/data/plant2.xls",check.names = FALSE)
#group %<>% select(c("Name","#genotype"))

#time <- dd$Time %>% as.character()
#testdata <- dd$data
#
#m <- NULL; e <- NULL
#for (i in seq_along(time)) {
#  miindex <- choseTimeArea(testdata, paste0("2020-08-31", " ", "04:00:00"), paste0("2020-08-31", " ", "04:30:00"))
#  kk <- testdata[miindex,]
#  kk <- kk$Weight %>% mean()
#  eiindex <- choseTimeArea(testdata, paste0("2020-08-31", " ", "19:00:00"), paste0("2020-08-31", " ", "19:30:00"))
#  kk2 <- testdata[eiindex,]
#  kk2 <- kk2$Weight %>% mean()
#  m[i] <- kk; e[i] <- kk2
#  print(time[i])
#}


#dd <- read.delim("E:/projects/Lysimeter_Systems/src/output/A13.xls")
#dd <- dd[, c(2, 9)]
#a <- dd[, 1]
#b <- dd[, 2] %>% as.numeric()
#
#result <- c()
#for (z in seq_along(b)) {
#  result[z] <- (8 * b[z + 1] - 8 * b[z - 1] - b[z + 2] + b[z - 2]) / (12 * 3)
#}
#dd[,3] <- result
#
#kk <- c()
#for (z in seq_along(b)) {
#  kk[z] <- (1*b[z+1]-1*b[z-1])/2/3
#}
#dd[,4] <- kk
#
#gg <- c()
#
#for (z in seq_along(b)) {
#  gg[z] <- (1*b[z+1]-1*b[z])
#}
#dd[,5] <- gg

dd
